home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8607.d64 / big change (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  101 lines
  1. 10 REM *** ZEICHENSATZAENDERUNG ***
  2. 20 REM *** FUER "THE NEWSROOM"  ***
  3. 30 REM ***    GROSSE SCHRIFT    ***
  4. 50 DIMB(3500)
  5. 60 POKE53280,3:POKE53281,3
  6. 70 PRINT"[147]"
  7. 90 INPUT"[147]ZEICHENSATZ (0-2):";S$
  8. 100 F$="LFNT"+S$+",P,R"
  9. 110 OPEN 3,8,3,F$
  10. 115 PRINT"BITTE GEDULD - IST HALT NUR BASIC"
  11. 120 AN=AN+1:GOSUB 1000:B(AN)=A
  12. 130 IF ST=0 THEN120
  13. 140 CLOSE 3
  14. 200 FOR L=4TO132
  15. 210 IFB(L)=0THEN 310
  16. 220 GOSUB5000:PRINT""
  17. 230 V=0:W=0:GOSUB2000
  18. 240 V=8:W=1:GOSUB2000
  19. 250 V=320:W=16:GOSUB2000
  20. 260 V=328:W=17:GOSUB2000
  21. 305 PRINT"ZEICHEN #:"L
  22. 310 PRINT"BREITE   :"B(L)
  23. 315 X=0:Y=0:POKE1076,PEEK(1076)OR128
  24. 320 GETA$:IFA$=""THEN320
  25. 325 IFA$="*"THENINPUT"ZEICHEN #:";L:GOTO210
  26. 326 IFA$="@"THENINPUT"NEUE ZEICHEN #:";L:GOSUB1700:GOTO410
  27. 330 IF A$="^"THENL=132:GOTO410
  28. 340 IF A$=""THENGOSUB1100
  29. 350 IF A$="[157]"THENGOSUB1200
  30. 360 IF A$=""THENGOSUB1300
  31. 370 IF A$="[145]"THENGOSUB1400
  32. 380 IFA$="="THENGOSUB1600
  33. 390 IFA$=CHR$(13)THENGOSUB1700:GOTO410
  34. 395 IFA$=" "THEN 410
  35. 400 GOTO 320
  36. 410 NEXTL
  37. 415 F$="@:NEWFONT"+S$+",P,W"
  38. 420 OPEN3,8,3,F$
  39. 430 FORL=1TOAN
  40. 440 PRINT#3,CHR$(B(L));
  41. 450 NEXT
  42. 460 CLOSE3
  43. 470 END
  44. 1000 GET#3,A$
  45. 1010 IFA$=""THENA=0:RETURN
  46. 1020 A=ASC(A$):RETURN
  47. 1100 REM *** CURSOR RECHTS ***
  48. 1110 GOSUB 1500
  49. 1120 IF X<15THEN X=X+1
  50. 1130 GOSUB 1500
  51. 1140 RETURN
  52. 1200 REM *** CURSOR LINKS ***
  53. 1210 GOSUB 1500
  54. 1220 IF X>0THEN X=X-1
  55. 1230 GOSUB 1500
  56. 1240 RETURN
  57. 1300 REM *** CURSOR RUNTER ***
  58. 1310 GOSUB 1500
  59. 1320 IF Y<15THEN Y=Y+1
  60. 1330 GOSUB 1500
  61. 1340 RETURN
  62. 1400 REM *** CURSOR RAUF ***
  63. 1410 GOSUB 1500
  64. 1420 IF Y>0THEN Y=Y-1
  65. 1430 GOSUB 1500
  66. 1440 RETURN
  67. 1500 REM *** CURSOR SETZEN/LOESCHEN ***
  68. 1510 IFPEEK(1076+X+Y*40)>128THENPOKE1076+X+Y*40,PEEK(1076+X+Y*40)AND127:RETURN
  69. 1520 POKE1076+X+Y*40,PEEK(1076+X+Y*40)OR128:RETURN
  70. 1600 REM *** PUNKT SETZEN/LOESCHEN ***
  71. 1610 IF PEEK(1076+X+Y*40)=160THENPOKE1076+X+Y*40,209:RETURN
  72. 1620 IF PEEK(1076+X+Y*40)=209THENPOKE1076+X+Y*40,160:RETURN
  73. 1700 REM *** NEUES ZEICHEN ***
  74. 1710 GOSUB1500:INPUT"BREITE   ";B(L)
  75. 1720 V=0:W=0:GOSUB3000
  76. 1730 V=8:W=1:GOSUB3000
  77. 1740 V=320:W=16:GOSUB3000
  78. 1750 V=328:W=17:GOSUB3000
  79. 1760 RETURN
  80. 2000 REM *** TEILZEICHEN SETZEN ***
  81. 2010 FORK=0TO7
  82. 2020 FORM=0TO7
  83. 2030 IF(B(L*32+3+K*2+W)AND2^M)=0THEN2050
  84. 2040 POKE1076+K*40+(7-M)+V,81
  85. 2050 POKE55348+K*40+(7-M)+V,6
  86. 2060 NEXTM,K
  87. 2070 RETURN
  88. 3000 REM *** TEILZEICHEN HOLEN ***
  89. 3010 FORK=0TO7:B(L*32+3+K*2+W)=0
  90. 3020 FORM=0TO7
  91. 3030 IFPEEK(1076+K*40+(7-M)+V)=81THENB(L*32+3+K*2+W)=B(L*32+3+K*2+W)OR2^M
  92. 3040 NEXTM,K
  93. 3050 RETURN
  94. 5000 REM *** BILDSCHIRMAUFBAU ***
  95. 5010 PRINT"[147]                             "
  96. 5020 FORK=1TO16
  97. 5030 PRINT"             "
  98. 5040 NEXT
  99. 5050 PRINT"                             "
  100. 5060 RETURN
  101.